home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / gfx / 3d / irit50src.lha / irit5 / scripts / smorph2.irt < prev    next >
Encoding:
Text File  |  1994-09-03  |  8.1 KB  |  276 lines
  1. #
  2. # A simple example of surface morphing.
  3. #
  4. #                    Gershon Elber, July 1992.
  5. #
  6. # render with raysahde with a unit matrix and the following:
  7. #
  8. # eyep   10 8  6
  9. # lookp  0  0  0
  10. # up     0  0  1
  11. # fov 12
  12. # 
  13. # light 0.8 directional 0 0 1
  14. # light 0.7 directional 0 1 0
  15. # light 0.6 directional 1 0 0
  16. # 
  17.  
  18. save_res = resolution;
  19.  
  20. if ( machine == msdos, resolution = 7, resolution = 10 );
  21. if ( machine == msdos, step = 0.2, step = 0.05 );
  22.  
  23. FloorLvl = -0.72;
  24. FloorXYMin = -1.4;
  25.  
  26. v1 = vector( -16.0, -16.0, FloorLvl );
  27. V2 = vector( -16.0,  16.0, FloorLvl );
  28. v3 = vector(  16.0,  16.0, FloorLvl );
  29. v4 = vector(  16.0, -16.0, FloorLvl );
  30. Floor = poly( list( v1, v2, v3, v4 ), false );
  31. color( Floor, red );
  32. attrib( Floor, "rgb", "244,164,96" );
  33. attrib( Floor, "texture", "wood" );
  34. attrib( Floor, "reflect", 0.3 );
  35.  
  36. Wall1 = poly( list( vector( FloorXYMin,       16.0, FloorLvl ),
  37.             vector( FloorXYMin, FloorXYMin, FloorLvl ),
  38.             vector( FloorXYMin, FloorXYMin, 16.0 ),
  39.             vector( FloorXYMin,       16.0, 16.0 ) ),
  40.           false );
  41. Wall2 = poly( list( vector(       16.0, FloorXYMin, FloorLvl ),
  42.             vector( FloorXYMin, FloorXYMin, FloorLvl ),
  43.             vector( FloorXYMin, FloorXYMin, 16.0 ),
  44.             vector(       16.0, FloorXYMin, 16.0 ) ),
  45.           false );
  46. color( Wall1, white );
  47. attrib( Wall1, "rgb", "255,255,255" );
  48. color( Wall2, white );
  49. attrib( Wall2, "rgb", "255,255,255" );
  50.  
  51. Backgrd = list( Floor, Wall1, Wall2 );
  52.  
  53. #############################################################################
  54. # First Morphing Sequence.                            #
  55. #############################################################################
  56.  
  57. Srf1 = ruledsrf( circle( vector( 0.0, 0.0, FloorLvl + 0.01 ), 1.0 ),
  58.          circle( vector( 0.0, 0.0, FloorLvl + 0.01 ), 0.01 ) );
  59. color( Srf1, yellow );
  60.  
  61. bcross = cbspline( 3,
  62.            list( ctlpt( E3,  0.0,  0.0, -0.71 ),
  63.                  ctlpt( E3,  0.2,  0.0, -0.72 ),
  64.                  ctlpt( E3,  0.25, 0.0, -0.7 ),
  65.                  ctlpt( E3,  0.25, 0.0, -0.1 ),
  66.                  ctlpt( E3,  0.2,  0.0, -0.05 ),
  67.                  ctlpt( E3,  0.15, 0.0,  0.0 ),
  68.                  ctlpt( E3,  0.1,  0.0,  0.6 ),
  69.              ctlpt( E3,  0.11, 0.0,  0.61 ),
  70.              ctlpt( E3,  0.12, 0.0,  0.61 ),
  71.              ctlpt( E3,  0.12, 0.0,  0.65 ),
  72.              ctlpt( E3,  0.09, 0.0,  0.65 ),
  73.              ctlpt( E3,  0.07, 0.0,  0.64 ),
  74.              ctlpt( E3,  0.10, 0.0, -0.05 ),
  75.              ctlpt( E3,  0.21, 0.0, -0.1 ),
  76.              ctlpt( E3,  0.21, 0.0, -0.64 ),
  77.              ctlpt( E3,  0.18, 0.0, -0.67),
  78.              ctlpt( E3,  0.0,  0.0, -0.66 ) ),
  79.            list( KV_OPEN ) );
  80. Srf2 = surfrev( bcross );
  81. free( bcross );
  82. color( Srf2, green );
  83.  
  84. #
  85. # Must make them compatible before doing some morphing.
  86. #
  87. ffcompat( Srf1, Srf2 );
  88.  
  89. #
  90. # Since we would like the animation to look as good as possible we need
  91. # to precompute as much as possible before invoking view to erase old
  92. # drawing and display new one. That is why we precompute isolines.
  93. #
  94. for ( i = 0, step, 1.0,
  95.     view( smorph( Srf1, Srf2, i ), on )
  96. );
  97.  
  98. #############################################################################
  99. # Second Morphing Sequence.                            #
  100. #############################################################################
  101.  
  102. bcross = cbspline( 3,
  103.            list( ctlpt( E3,  0.0,  0.0, -0.71 ),
  104.                  ctlpt( E3,  0.2,  0.0, -0.72 ),
  105.                  ctlpt( E3,  0.25, 0.0, -0.7 ),
  106.                  ctlpt( E3,  0.25, 0.0, -0.1 ),
  107.                  ctlpt( E3,  0.2,  0.0, -0.05 ),
  108.                  ctlpt( E3,  0.15, 0.0,  0.0 ),
  109.                  ctlpt( E3,  0.1,  0.0,  0.6 ),
  110.              ctlpt( E3,  0.11, 0.0,  0.61 ),
  111.              ctlpt( E3,  0.12, 0.0,  0.61 ),
  112.              ctlpt( E3,  0.12, 0.0,  0.65 ),
  113.              ctlpt( E3,  0.09, 0.0,  0.65 ),
  114.              ctlpt( E3,  0.07, 0.0,  0.64 ),
  115.              ctlpt( E3,  0.10, 0.0, -0.05 ),
  116.              ctlpt( E3,  0.21, 0.0, -0.1 ),
  117.              ctlpt( E3,  0.21, 0.0, -0.64 ),
  118.              ctlpt( E3,  0.18, 0.0, -0.67),
  119.              ctlpt( E3,  0.0,  0.0, -0.66 ) ),
  120.            list( KV_OPEN ) );
  121. Srf2 = surfrev( bcross );
  122. free( bcross );
  123. color( Srf2, green );
  124.  
  125. gcross = cbspline( 3,
  126.            list( ctlpt( E3, 0.001, 0.0, 0.02 ),
  127.                ctlpt( E3, 0.2,   0.0, 0.02 ),
  128.              ctlpt( E3, 0.22,  0.0, 0. ),
  129.              ctlpt( E3, 0.22,  0.0, 0.03 ),
  130.              ctlpt( E3, 0.03,  0.0, 0.03 ),
  131.              ctlpt( E3, 0.03,  0.0, 0.07 ),
  132.              ctlpt( E3, 0.04,  0.0, 0.3 ),
  133.              ctlpt( E3, 0.3,   0.0, 0.3 ),
  134.              ctlpt( E3, 0.4,   0.0, 0.4 ),
  135.              ctlpt( E3, 0.3,   0.0, 0.7 ),
  136.              ctlpt( E3, 0.28,  0.0, 0.7 ),
  137.              ctlpt( E3, 0.37,  0.0, 0.42 ),
  138.              ctlpt( E3, 0.31,  0.0, 0.32 ),
  139.              ctlpt( E3, 0.001, 0.0, 0.32 ) ),
  140.         list( KV_OPEN ) );
  141. Srf3 = surfrev( gcross * trans( vector( 0.0, 0.0, -0.45 ) ) *
  142.              scale( vector( 1.6, 1.6, 1.6 ) ) );
  143. free( gcross );
  144. color( Srf3, cyan );
  145.  
  146. #
  147. # Must make them compatible before doing some morphing.
  148. #
  149. ffcompat( Srf2, Srf3 );
  150.  
  151. for ( i = 0, step, 1.0,
  152.     view( smorph( Srf2, Srf3, i ), true )
  153. );
  154.  
  155. #############################################################################
  156. # Third Morphing Sequence.                            #
  157. #############################################################################
  158.  
  159. gcross = cbspline( 3,
  160.            list( ctlpt( E3, 0.001, 0.0, 0.02 ),
  161.                ctlpt( E3, 0.2,   0.0, 0.02 ),
  162.              ctlpt( E3, 0.22,  0.0, 0. ),
  163.              ctlpt( E3, 0.22,  0.0, 0.03 ),
  164.              ctlpt( E3, 0.03,  0.0, 0.03 ),
  165.              ctlpt( E3, 0.03,  0.0, 0.07 ),
  166.              ctlpt( E3, 0.04,  0.0, 0.3 ),
  167.              ctlpt( E3, 0.3,   0.0, 0.3 ),
  168.              ctlpt( E3, 0.4,   0.0, 0.4 ),
  169.              ctlpt( E3, 0.3,   0.0, 0.7 ),
  170.              ctlpt( E3, 0.28,  0.0, 0.7 ),
  171.              ctlpt( E3, 0.37,  0.0, 0.42 ),
  172.              ctlpt( E3, 0.31,  0.0, 0.32 ),
  173.              ctlpt( E3, 0.001, 0.0, 0.32 ) ),
  174.         list( KV_OPEN ) );
  175. Srf3 = surfrev( gcross * trans( vector( 0.0, 0.0, -0.45 ) ) *
  176.              scale( vector( 1.6, 1.6, 1.6 ) ) );
  177. free( gcross );
  178. color( Srf3, cyan );
  179.  
  180. s45 = sin( pi / 4 );
  181. HelixAux = cbspline( 3,
  182.              list( ctlpt( P3, 1, 1, 0, 0 ),
  183.                ctlpt( P3, s45, s45, s45, 0.2 * s45 ),
  184.                ctlpt( P3, 1, 0, 1, 0.4 ),
  185.                ctlpt( P3, s45, -s45, s45, 0.6 * s45 ),
  186.                ctlpt( P3, 1, -1, 0, 0.8 ),
  187.                ctlpt( P3, s45, -s45, -s45, 1.0 * s45 ),
  188.                ctlpt( P3, 1, 0, -1, 1.2 ),
  189.                ctlpt( P3, s45, s45, -s45, 1.4 * s45 ),
  190.                ctlpt( P3, 1, 1, 0, 1.6 ) ),
  191.              list( 0, 0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 4 ) );
  192. HelixApx = HelixAux +
  193.        HelixAux * trans( vector( 0.0, 0.0, 1.6 ) ) +
  194.        HelixAux * trans( vector( 0.0, 0.0, 3.2 ) );
  195.  
  196. ScaleCrv = cbezier( list( ctlpt( E2, 0.0, 0.01 ),
  197.               ctlpt( E2, 1.0, 1.0 ) ) );
  198.  
  199. Srf4 = swpsclsrf( circle( vector( 0.0, 0.0, 0.0 ), 0.8 ), HelixApx, ScaleCrv,
  200.          off, 0 ) *
  201.     scale( vector( 0.2, 0.2, 0.2 ) ) *
  202.     trans( vector( 0.0, 0.0, FloorLvl ) );
  203.  
  204. free( HelixAux );
  205. free( HelixApx );
  206. free( ScaleCrv );
  207. color( Srf4, magenta );
  208.  
  209. #
  210. # Must make them compatible before doing some morphing.
  211. #
  212. ffcompat( Srf3, Srf4 );
  213.  
  214. for ( i = 0, step, 1.0,
  215.     view( smorph( Srf3, Srf4, i ), true )
  216. );
  217.  
  218. #############################################################################
  219. # Fourth Morphing Sequence.                            #
  220. #############################################################################
  221.  
  222. s45 = sin( pi / 4 );
  223. HelixAux = cbspline( 3,
  224.              list( ctlpt( P3, 1, 1, 0, 0 ),
  225.                ctlpt( P3, s45, s45, s45, 0.2 * s45 ),
  226.                ctlpt( P3, 1, 0, 1, 0.4 ),
  227.                ctlpt( P3, s45, -s45, s45, 0.6 * s45 ),
  228.                ctlpt( P3, 1, -1, 0, 0.8 ),
  229.                ctlpt( P3, s45, -s45, -s45, 1.0 * s45 ),
  230.                ctlpt( P3, 1, 0, -1, 1.2 ),
  231.                ctlpt( P3, s45, s45, -s45, 1.4 * s45 ),
  232.                ctlpt( P3, 1, 1, 0, 1.6 ) ),
  233.              list( 0, 0, 0, 1, 1, 2, 2, 3, 3, 4, 4, 4 ) );
  234. HelixApx = HelixAux +
  235.        HelixAux * trans( vector( 0.0, 0.0, 1.6 ) ) +
  236.        HelixAux * trans( vector( 0.0, 0.0, 3.2 ) );
  237.  
  238. ScaleCrv = cbezier( list( ctlpt( E2, 0.0, 0.01 ),
  239.               ctlpt( E2, 1.0, 1.0 ) ) );
  240.  
  241. Srf4 = swpsclsrf( circle( vector( 0.0, 0.0, 0.0 ), 0.8 ), HelixApx, ScaleCrv,
  242.          off, 0 ) *
  243.     scale( vector( 0.2, 0.2, 0.2 ) ) *
  244.     trans( vector( 0.0, 0.0, FloorLvl ) );
  245.  
  246. free( HelixAux );
  247. free( HelixApx );
  248. free( ScaleCrv );
  249. color( Srf4, magenta );
  250.  
  251. Srf1 = ruledsrf( circle( vector( 0.0, 0.0, FloorLvl + 0.01 ), 1.0 ),
  252.          circle( vector( 0.0, 0.0, FloorLvl + 0.01 ), 0.01 ) );
  253. color( Srf1, yellow );
  254.  
  255. #
  256. # Must make them compatible before doing some morphing.
  257. #
  258. ffcompat( Srf4, Srf1 );
  259.  
  260. #
  261. # Since we would like the animation to look as good as possible we need
  262. # to precompute as much as possible before invoking view to erase old
  263. # drawing and display new one. That is why we precompute isolines.
  264. #
  265. for ( i = 0, step, 1.0,
  266.     view( smorph( Srf4, Srf1, i ), true )
  267. );
  268.  
  269. free(Srf1);
  270. free(Srf2);
  271. free(Srf3);
  272. free(Srf4);
  273.  
  274. resolution = save_res;
  275.  
  276.